Mass on Sphere, open amplifier, division

[Analog_Engine.git] / AESL / Radioactive Decay.AESL

diff --git a/AESL/Radioactive Decay.AESL b/AESL/Radioactive Decay.AESL
new file mode 100644 (file)
index 0000000..e225eef
--- /dev/null
+++ b/AESL/Radioactive Decay.AESL
@@ -0,0 +1,23 @@
+IDENTIFICATION DIVISION
+PROGRAM-ID Radioactive_Decay
+
+ENVIRONMENT DIVISION
+ENGINE Anabrid-THAT
+REQUIRES Coefficient 2
+REQUIRES Integrator 1
+REQUIRES Inverter 1
+
+DATA DIVISION
+OUTPUT OUTPUT.X N
+ALIAS COEFFICIENT.1 InitialValue
+ALIAS COEFFICIENT.2 Decay 
+
+PROGRAM DIVISION
++1 -> InitialValue -> N0
+N’, IC:N0 -> Integrator.1 -> -N
+-N -> Decay -> -lambda*N=N’
+-N -> Inverter.1 -> N
+
+OPERATION DIVISION
+MODE REPEAT
+OP-TIME 20ms